home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / conn173c.zip / RSB4CONN.MRG < prev    next >
Text File  |  1992-04-24  |  5KB  |  105 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW
  3. * RBBSSUB4.BAS:  Date 9-2-1991  Size 123727 bytes
  4. * ------------[ Created 04-24-1992 12:45:52 ]------------
  5. * REPLACING old line(s) by new
  6. 62620 ' $SUBTITLE: 'Transfer - Subroutine for external protocols'
  7. ' $PAGE
  8. '
  9. '  NAME    -- Transfer
  10. '
  11. '  INPUTS  --     PARAMETER                    MEANING
  12. '              ZTransferFunction         = 1 DOWNLOAD FILE TO USER
  13. '                                        = 2 UPLOAD FILE TO RBBS-PC
  14. '              ZFileName$                NAME OF FILE FOR Transfer
  15. '              ZComPort$                 NAME OF COMMUNICATIONS PORT
  16. '                                        TO BE USED BY KERMIT (COM1
  17. '                                        OR COM2)
  18. * ------[ first line different ]------
  19. '              ZBPS                      = -1  FOR   300 BAUD
  20. '                                        = -2  FOR   450 BAUD
  21. '                                        = -3  FOR  1200 BAUD
  22. '                                        = -4  FOR  2400 BAUD
  23. '                                        = -5  FOR  4800 BAUD
  24. '                                        = -6  FOR  7200 BAUD
  25. '                                        = -7  FOR  9600 BAUD        ' CONN173C
  26. '                                        = -8  FOR 12000 BAUD        ' CONN173C
  27. '                                        = -9  FOR 14400 BAUD        ' CONN173C
  28. '                                        = -10 FOR 19200 BAUD        ' CONN173C
  29. '                                        = -11 FOR 38400 BAUD        ' CONN173C
  30. '
  31. '  OUTPUTS  -- NONE
  32. '
  33. '  PURPOSE -- To transfer files using external protocols
  34. '
  35.       SUB Transfer STATIC
  36.       IF ZPrivateDoor THEN _
  37.          CALL PrivDoorRtn : _
  38.          EXIT SUB
  39.       IF ZTransferFunction = 1 THEN _
  40.          ZUserIn$ = ZDownTemplate$ : _
  41.          ZWasZ$ = "Send " _                                          ' TC090101
  42.       ELSE IF ZTransferFunction = 2 THEN _
  43.               ZUserIn$ = ZUpTemplate$ : _
  44.               ZWasZ$ = "Receive "                                    ' TC090101
  45.       CALL MetaGSR (ZUserIn$,ZFalse)
  46.       CALL QuickTPut ("Protocol     : " + ZProtoPrompt$,2)           ' TC090101
  47.       CALL QuickTPut ("Ready to " + ZWasZ$,0)                        ' TC090101
  48.       IF ZBatchTransfer THEN _
  49.          CALL QuickTPut1 ("(BATCH)") : _
  50.          CALL OpenWork (2,ZNodeWorkFile$) : _
  51.          WHILE NOT EOF(2) : _
  52.            CALL ReadAny : _
  53.            CALL BreakFileName (ZOutTxt$,ZWasZ$,ZWasY$,WasX$,ZTrue) : _
  54.            CALL QuickTPut1 ("   "+ZWasY$+WasX$) : _
  55.          WEND _
  56.       ELSE CALL QuickTPut1 (ZFileNameHold$)
  57.       IF ZAutoLogoffReq THEN _
  58.          CALL SkipLine (1) : _                                       ' TC090101
  59.          CALL QuickTPut1 ("Auto-Logoff After a Successful Download.") ' TC090101
  60.       CALL PrivDoorRtn
  61.       END SUB
  62. * REPLACING old line(s) by new
  63. 62624 ' $SUBTITLE: 'PrivDoorRtn - subroutine to exit as a private door.'
  64. ' $PAGE
  65. '
  66. '  NAME    -- PrivDoorRtn
  67. '
  68. '  INPUTS  --     PARAMETER                    MEANING
  69. '              ZTransferFunction         = 1 DOWNLOAD FILE TO USER
  70. '                                        = 2 UPLOAD FILE TO RBBS-PC
  71. '                                        = 3 USER REGISTRATION PGM
  72. '              ZUserIn$                      NAME OF FILE TO EXIT TO
  73. '              ZComPort$                 NAME OF COMMUNICATIONS PORT
  74. '                                        TO BE USED BY KERMIT (COM1
  75. '                                        OR COM2)
  76. * ------[ first line different ]------
  77. '              ZBPS                      = -1  FOR   300 BAUD
  78. '                                        = -2  FOR   450 BAUD
  79. '                                        = -3  FOR  1200 BAUD
  80. '                                        = -4  FOR  2400 BAUD
  81. '                                        = -5  FOR  4800 BAUD
  82. '                                        = -6  FOR  7200 BAUD        ' CONN173C
  83. '                                        = -7  FOR  9600 BAUD        ' CONN173C
  84. '                                        = -8  FOR 12000 BAUD        ' CONN173C
  85. '                                        = -9  FOR 14400 BAUD        ' CONN173C
  86. '                                        = -10 FOR 19200 BAUD        ' CONN173C
  87. '                                        = -11 FOR 38400 BAUD        ' CONN173C
  88. '
  89. '  OUTPUTS -- NONE
  90. '
  91. '  PURPOSE -- To transfer control to another program
  92. '
  93.       SUB PrivDoorRtn STATIC
  94.       IF ZPrivateDoor THEN _
  95.          GOTO 62630
  96.       IF ZFakeXRpt THEN _
  97.          CALL FakeXRpt (ZWasFT$)
  98.       IF ZAdvanceProtoWrite THEN _
  99.          CALL OpenOutW ("XFER-"+ZNodeID$+".DEF") : _
  100.          IF ZErrCode < 1 THEN _
  101.             CALL PrintWorkA (ZFileName$+",,"+ZWasFT$) : _
  102.             CLOSE 2
  103.       IF ZProtoMethod$ = "S" THEN _
  104.          GOTO 62629
  105.